home *** CD-ROM | disk | FTP | other *** search
/ GeoSafari Geography / GeoSafari Geogra.iso / pc / geogeog / 00001_launch app on CD.ls next >
Encoding:
Text File  |  1999-04-20  |  937 b   |  34 lines
  1. global gStartPath
  2.  
  3. on exitFrame
  4.   gStartPath = the moviePath
  5.   if FileExists(the moviePath & "DvCDOvrd.txt") <> 0 then
  6.     if the machineType <> 256 then
  7.       pathSep = ":"
  8.       driveList = DrivesToList()
  9.     else
  10.       pathSep = "\"
  11.       driveList = ["D:", "E:", "F:", "G:", "H:", "I:", "J:", "K:", "L:", "M:"]
  12.     end if
  13.     CDDrive = #NoCD
  14.     repeat with driveName in driveList
  15.       if DriveIsCDROM(driveName) = 0 then
  16.         if FileExists(driveName & pathSep & "AWP_101.PIC") = 0 then
  17.           CDDrive = driveName
  18.           exit repeat
  19.         end if
  20.       end if
  21.     end repeat
  22.     if CDDrive = #NoCD then
  23.       alert("Before you run GeoSafari Geography, you need to put the CD in.")
  24.       quit()
  25.     else
  26.       add(the searchPath, CDDrive & pathSep & "movies")
  27.       go(1, CDDrive & pathSep & "Geogrphy")
  28.     end if
  29.   else
  30.     add(the searchPath, the moviePath & "movies")
  31.     go(1, the moviePath & "Geogrphy")
  32.   end if
  33. end
  34.